home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / SPEED.READING.bas < prev    next >
BASIC Source File  |  2003-06-12  |  25KB  |  702 lines
  1. 20 S =  -16336
  2. 24  CALL  -936
  3. 25  VTAB 12
  4. 30  HTAB 14
  5. 40  PRINT "SPEED READING"
  6. 50  FOR I = 1 TO 750: NEXT I
  7. 110  REM 
  8. 120  REM  INITIALIZATION
  9. 130  REM 
  10. 135 W = 120
  11. 136 B = 120
  12. 137 IN = 120
  13. 138 AD = 120
  14. 139 EX = 120
  15. 140  DIM W$(W)
  16. 141  DIM B$(B)
  17. 142  DIM I$(IN)
  18. 143  DIM AD$(AD)
  19. 144  DIM EX$(EX)
  20. 150  FOR X = 1 TO W
  21. 160  READ W$(X)
  22. 170  NEXT X
  23. 180  FOR X = 1 TO B
  24. 190  READ B$(X)
  25. 200  NEXT X
  26. 210  FOR X = 1 TO IN
  27. 220  READ I$(X)
  28. 230  NEXT X
  29. 240  FOR X = 1 TO AD
  30. 250  READ AD$(X)
  31. 260  NEXT X
  32. 270  FOR X = 1 TO EX
  33. 280  READ EX$(X)
  34. 290  NEXT X
  35. 300  REM  
  36. 301  REM  INTRODUCTION
  37. 302  REM 
  38. 310  HOME 
  39. 330  PRINT "THIS PROGRAM IS DESIGNED TO IMPROVE"
  40. 335  PRINT "YOUR READING HABITS, AND AT THE"
  41. 340  PRINT "SAME TIME, YOUR READING SPEED."
  42. 345  PRINT : PRINT "A PHRASE WILL BE DISPLAYED FOR A SHORT"
  43. 350  PRINT "PERIOD OF TIME, AND YOU WILL TRY TO"
  44. 355  PRINT "READ IT."
  45. 360  PRINT : PRINT "TYPE WHAT YOU SEE AND YOU WILL BE TOLD"
  46. 365  PRINT "IF YOU WERE RIGHT."
  47. 370  PRINT : PRINT "YOU HAVE A CHOICE OF PHRASE LENGTHS"
  48. 375  PRINT "AND DISPLAY TIMES."
  49. 380  PRINT : PRINT "1.  WARM-UP           1.  VERY SLOW"
  50. 385  PRINT "2.  BEGINNER          2.  SLOW"
  51. 390  PRINT "3.  INTERMEDIATE      3.  MEDIUM"
  52. 395  PRINT "4.  ADVANCED          4.  FAST"
  53. 400  PRINT "5.  EXPERT            5.  VERY FAST"
  54. 405  PRINT 
  55. 410  INPUT "PHRASE LENGTH ";PL
  56. 415  INPUT "DISPLAY SPEED ";SP
  57. 416 ST = PL +SP
  58. 418  GOTO 470
  59. 420  REM 
  60. 421  REM  SELECT PHRASE
  61. 422  REM 
  62. 424  IF PL >1  THEN 429
  63. 425  IF PL = 1  THEN P =  INT(W * RND(1)):P$ = W$(P)
  64. 426  FOR X = 1 TO 10
  65. 427  IF P$ = PP$(X)  THEN 425
  66. 428  NEXT X: GOTO 450
  67. 429  IF PL >2  THEN 434
  68. 430  IF PL = 2  THEN P =  INT(B * RND(1)):P$ = B$(P)
  69. 431  FOR X = 1 TO 10
  70. 432  IF P$ = PP$(X)  THEN 430
  71. 433  NEXT X: GOTO 450
  72. 434  IF PL >3  THEN 439
  73. 435 P =  INT(IN * RND(1)):P$ = I$(P)
  74. 436  FOR X = 1 TO 10
  75. 437  IF P$ = PP$(X)  THEN 435
  76. 438  NEXT X: GOTO 450
  77. 439  IF PL >4  THEN 444
  78. 440 P =  INT(AD * RND(1)):P$ = AD$(P)
  79. 441  FOR X = 1 TO 10
  80. 442  IF P$ = PP$(X)  THEN 440
  81. 443  NEXT X: GOTO 450
  82. 444  IF PL >5  THEN 450
  83. 445 P =  INT(EX * RND(1)):P$ = EX$(P)
  84. 446  FOR X = 1 TO 10
  85. 447  IF P$ = PP$(X)  THEN 445
  86. 448  NEXT X
  87. 450 PP$(10) = PP$(9):PP$(9) = PP$(8):PP$(8) = PP$(7):PP$(7) = PP$(6):PP$(6) = PP$(5)
  88. 455 PP$(5) = PP$(4):PP$(4) = PP$(3):PP$(3) = PP$(2):PP$(2) = PP$(1):PP$(1) = P$
  89. 460  RETURN 
  90. 470  REM 
  91. 471  REM  BASIC PROCEDURE
  92. 472  REM 
  93. 475  GOSUB 900
  94. 480  GOSUB 950
  95. 485  GOSUB 420
  96. 488  FOR I = 1 TO 750: NEXT I
  97. 490  VTAB 8: HTAB (20 -( LEN(P$)/2))
  98. 495  IF SP <0  THEN SP = 0
  99. 500  PRINT P$
  100. 505  FOR I = 0 TO SP
  101. 510  NEXT I
  102. 515  HOME 
  103. 520  VTAB 5
  104. 525  PRINT "WHAT WAS IT?"
  105. 530  PRINT : INPUT A$
  106. 531  PRINT : PRINT 
  107. 535  IF A$ = P$  THEN 540
  108. 536  PRINT "THAT'S NOT RIGHT": PRINT 
  109. 537  PRINT "IT WAS ",P$: PRINT : PRINT "THE NEXT ONE WILL BE DISPLAYED FOR A    LITTLE LONGER"
  110. 538 SP = SP +10
  111. 539  GOTO 545
  112. 540  PRINT : PRINT "THAT'S RIGHT"
  113. 541  PRINT : PRINT "THE NEXT ONE WILL BE DISPLAYED FOR A    SLIGHTLY SHORTER LENGTH OF TIME"
  114. 542 SP = SP -10:RA = RA +1
  115. 543  IF SP <20  THEN SP = 20
  116. 545 T = T +1: PRINT 
  117. 546  PRINT : PRINT "YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."
  118. 547  IF T = 10  OR T = 20  OR T = 30  OR T = 40  OR T = 50  THEN 549
  119. 548  GOTO 564
  120. 549  FOR I = 1 TO 20:SOUND =  PEEK(S) - PEEK(S) - PEEK(S): NEXT I
  121. 550  PRINT : PRINT : INPUT "DO YOU WANT TO STOP? ";ST$
  122. 551  IF  LEFT$(ST$,1) = "Y"  THEN 553
  123. 552  GOTO 564
  124. 553 SC =  INT((10 *RA/T) *ST)
  125. 554  PRINT : PRINT : PRINT "YOUR SCORE IS ";SC
  126. 555  PRINT 
  127. 556  IF SC/ST = 10  THEN  PRINT "THAT'S PERFECT.  TRY SOMETHING HARDER   NEXT TIME!"
  128. 557  IF SC/ST <10  AND SC/ST >8  THEN  PRINT "THAT'S VERY GOOD!"
  129. 558  IF SC/ST < = 8  AND SC/ST >6  THEN  PRINT "YOU DID ALL RIGHT.  BUT YOU NEED MORE   PRACTICE."
  130. 559  IF SC/ST < = 6  AND SC/ST >4  THEN  PRINT "YOU SHOULD TRY SOMETHING EASIER."
  131. 560  IF SC/ST < = 4  THEN  PRINT "THAT WAS WAY BEYOND YOU.  WHY NOT TRY   SOMETHING A LOT EASIER."
  132. 561  PRINT : PRINT : PRINT "DO YOU WANT TO TRY AGAIN? ";
  133. 562  INPUT TR$: IF  LEFT$(TR$,1) = "Y"  THEN 300
  134. 563  END 
  135. 564  PRINT : PRINT : PRINT "TYPE THE RETURN KEY TO CONTINUE";
  136. 565  FOR I = 1 TO 750: NEXT I
  137. 566  INPUT C$
  138. 568  GOSUB 950
  139. 570  FOR I = 1 TO 750: NEXT I
  140. 572  GOSUB 420
  141. 575  GOTO 490
  142. 900  REM 
  143. 901  REM  INITIAL TIME DETERMINATION
  144. 902  REM 
  145. 905  IF SP = 1  THEN SP = 600
  146. 910  IF SP = 2  THEN SP = 500
  147. 920  IF SP = 3  THEN SP = 400
  148. 925  IF SP = 4  THEN SP = 300
  149. 930  IF SP = 5  THEN SP = 200
  150. 940  RETURN 
  151. 950  REM  
  152. 951  REM  SET UP SCREEN
  153. 952  REM 
  154. 955  HOME 
  155. 960  VTAB 6: HTAB 10
  156. 965  PRINT "--------------------"
  157. 970  VTAB 10: HTAB 10
  158. 975  PRINT "--------------------"
  159. 980  RETURN 
  160. 1000  REM 
  161. 1010  REM  PROGRAM DATA
  162. 1020  REM 
  163. 1030  REM  WARM UP DATA
  164. 1040  REM 
  165. 1041  DATA  "67<CTRL-R>354","23655","84561","48796","74865"
  166. 1042  DATA  "63045<CTRL-R>","7698","87256","14346","6532"
  167. 1043  DATA  "28566","37675","76407","62345","4675"
  168. 1044  DATA  "12345","23456","34567","45678","56789"
  169. 1045  DATA  "01256","02375","01235","87965","34675"
  170. 1046  DATA  "67890","78901","89012","90123","01234"
  171. 1047  DATA  "09876","98765","87654","76543","65432"
  172. 1048  DATA  "54321","43210","32109","21098","10987"
  173. 1049  DATA  "13579","97531","24680","08642","75756"
  174. 1050  DATA  "8417","6521","33225","938<CTRL-R>4","1430"
  175. 1051  DATA  "11111","22222","33333","44444","55555"
  176. 1052  DATA  "47653","89456","46757","49855","75652"
  177. 1053  DATA   "66666","77777","88888","99999","00000"
  178. 1054  DATA  "111111","444444","888888","999999","555555"
  179. 1055  DATA  "5647","5712","8381","9821","7547"
  180. 1056  DATA  "76544","8574","87234","36535","26543"
  181. 1060  DATA  "8465","8769","9062","2116","8790"
  182. 1065  DATA  "6546","8423","1011","1023","1017"
  183. 1070  DATA  "1019","9909","9969","9960","9099"
  184. 1075  DATA  "9009","9999","6999","6606","3555"
  185. 1080  DATA  "7447","2233","8000","4568","3883"
  186. 1085  DATA  "60415","436<CTRL-R>759","10390","91321","19234"
  187. 1090  DATA  "78132","01654","12065","46751","9183
  188. 1095  DATA  "98456","46753","98546","89545","389<CTRL-R>54"
  189. 1100  REM 
  190. 1110  REM  BEGINNING DATA
  191. 1120  REM 
  192. 1130  DATA  "IN THE NIGHT"
  193. 1135  DATA  "DURING THE DAY
  194. 1140  DATA  "AT THE TIME"
  195. 1145  DATA  "NOT THIS TIME"
  196. 1150  DATA  "IN THE HOUSE"
  197. 1155  DATA  "TEN DAYS OLDER"
  198. 1160  DATA  "TEN YEARS OLDER"
  199. 1165  DATA  "GO WITH HER"
  200. 1170  DATA  "EXCUSE ME"
  201. 1175  DATA  "COME WITH US"
  202. 1180  DATA  "COME WITH ME"
  203. 1185  DATA  "GO WITH HIM"
  204. 1190  DATA  "THE LAST DAY"
  205. 1195  DATA  "I KNOW THEM"
  206. 1200  DATA  "A RED TURTLE"
  207. 1205  DATA  "A YOUNG GIRL"
  208. 1210  DATA  "HIS BACK POCKET"
  209. 1215  DATA  "HER TENNIS DRESS"
  210. 1220  DATA  "ONE YEAR AGO"
  211. 1225  DATA  "TEN YEARS YOUNGER"
  212. 1230  DATA  "LAST MONTH"
  213. 1235  DATA  "HIS BACK ACHES"
  214. 1240  DATA  "A YELLOW TIE"
  215. 1245  DATA  "ONE YEAR BEFORE"
  216. 1250  DATA  "OF HIS HAT"
  217. 1255  DATA  "ONE YEAR TO GO"
  218. 1260  DATA  "ON THE WAY"
  219. 1265  DATA  "DO YOU KNOW HIM"
  220. 1270  DATA  "I KNOW YOU"
  221. 1275  DATA  "SIX RAW EGGS"
  222. 1280  DATA  "AN OLD LADY"
  223. 1285  DATA  "SIX RED HENS"
  224. 1290  DATA  "A PURPLE FINCH"
  225. 1295  DATA  "SIXTEEN YEARS"
  226. 1300  DATA  "THE TENNIS MATCH"
  227. 1305  DATA  "SIXTEEN ACRES"
  228. 1310  DATA  "BEGIN AT ONCE"
  229. 1315  DATA  "IN THEIR WAY"
  230. 1320  DATA  "AT MY WATCH"
  231. 1325  DATA  "ON THEIR WAY"
  232. 1330  DATA  "HE WAS HUNGRY"
  233. 1335  DATA  "BEGIN AT ONE"
  234. 1340  DATA  "SHE IS TIRED"
  235. 1345  DATA  "AT MY WALLS"
  236. 1350  DATA  "THE FOOTBALL GAME"
  237. 1355  DATA  "HE WAS HARRIED"
  238. 1360  DATA  "I AM FINE"
  239. 1365  DATA  "I AM FIRST"
  240. 1370  DATA  "YOUR WHOLE FAMILY"
  241. 1375  DATA  "GO DOWNTOWN"
  242. 1380  DATA  "HIS RIGHT WRIST"
  243. 1385  DATA  "TRY IT AGAIN"
  244. 1390  DATA  "HER LEFT ARM"
  245. 1395  DATA  "TRY IT MY WAY"
  246. 1400  DATA  "YOUR RIGHT HAND"
  247. 1405  DATA  "HIS RING FINGER"
  248. 1410  DATA  "MY LEFT LEG"
  249. 1415  DATA  "HER LIMP DRESS"
  250. 1420  DATA  "HE WAS CRUEL"
  251. 1425  DATA  "A DULL SUMMER"
  252. 1430  DATA  "A WHITE SWEATER"
  253. 1435  DATA  "A YOUNG PONY"
  254. 1440  DATA  "A BLACK CROW"
  255. 1445  DATA  "IT IS JUST"
  256. 1450  DATA  "MY BROWN COW"
  257. 1455  DATA  "IT WAS JUSTICE"
  258. 1460  DATA  "HER RED SCARF"
  259. 1465  DATA  "HE WALKED AWAY"
  260. 1470  DATA  "OUR ORANGE RUG"
  261. 1475  DATA  "HE TRIED TO WALK"
  262. 1480  DATA  "A YELLOW SKIRT"
  263. 1485  DATA  "HE WALKED AGAIN"
  264. 1490  DATA  "THE GREEN GRASS"
  265. 1495  DATA  "HE WALKED SOUTH"
  266. 1500  DATA  "THE BLUE SKY"
  267. 1505  DATA  "HE WALKED NORTH"
  268. 1510  DATA  "THE WHITE SNOW"
  269. 1515  DATA  "I LOST TRACK"
  270. 1520  DATA  "DEEP BLACK NIGHT"
  271. 1525  DATA  "I LOST MY WAY"
  272. 1530  DATA  "THE BROWN DIRT"
  273. 1535  DATA  "A GOOD ORANGE"
  274. 1540  DATA  "HOT RED FLAMES"
  275. 1545  DATA  "UP THE HILL"
  276. 1550  DATA  "A TASTY ORANGE"
  277. 1555  DATA  "TO THE MILL"
  278. 1560  DATA  "HIS YELLOW STREAK"
  279. 1565  DATA  "JOHN FELL DOWN"
  280. 1570  DATA  "MONEY IS GREEN"
  281. 1575  DATA  "BILL CAME LATE"
  282. 1580  DATA  "I AM BLUE"
  283. 1585  DATA  "MARY WAS LATE"
  284. 1590  DATA  "SHE SPOKE QUICKLY"
  285. 1595  DATA  "MARY HAD A DATE"
  286. 1600  DATA  "ABANDON SHIP"
  287. 1605  DATA  "JILL IS PRETTY"
  288. 1610  DATA  "ABANDON ALL HOPE"
  289. 1615  DATA  "JILL IS PINK"
  290. 1620  DATA  "IT WAS ABLAZE"
  291. 1625  DATA  "ANN CAME HOME"
  292. 1630  DATA  "THEY WENT ABOARD"
  293. 1635  DATA  "VERY POOR ADVICE"
  294. 1640  DATA  "THEY WENT ABROAD"
  295. 1645  DATA  "ANNE CAME HOME"
  296. 1650  DATA  "HE WAS ABUSIVE"
  297. 1655  DATA  "COME DOWN HERE"
  298. 1660  DATA  "HE WAS ABUSED"
  299. 1665  DATA  "COME UPSTAIRS"
  300. 1670  DATA  "SHE HAD ACCESS"
  301. 1675  DATA  "ANN WAS DEAD"
  302. 1680  DATA  "SHE HAD SUCCESS"
  303. 1685  DATA  "ANNE WAS PRETTY"
  304. 1690  DATA  "IT IS MAY"
  305. 1695  DATA  "JOHN KNEW MARY"
  306. 1700  DATA  "IT IS MY OWN"
  307. 1705  DATA  "JILL KISSED JACK"
  308. 1710  DATA  "ON HIS WAY"
  309. 1715  DATA  "BOB GOT A RIDE"
  310. 1720  DATA  "VERY GOOD ADVICE"
  311. 1725  DATA  "BOB KILLED MARY"
  312. 2000  REM 
  313. 2001  REM  INTERMEDIATE
  314. 2002  REM 
  315. 2005  DATA  "WE ATE DINNER LATE"
  316. 2010  DATA  "WE HATED HER DINNER"
  317. 2015  DATA  "SHE LOVED HIS SUIT"
  318. 2020  DATA  "LET'S GO HOME EARLY"
  319. 2025  DATA   "HERE COMES THE DOG"
  320. 2030  DATA   "THE WATER IS COLD"
  321. 2035  DATA   "LOOK IN THE CLOSET"
  322. 2040  DATA   "TRAFFIC IS HEAVY NOW"
  323. 2045  DATA   "THE STORE IS CLOSED"
  324. 2050  DATA   "BILL READ THE BOOK"
  325. 2055  DATA   "BILL LEADS THE BAND"
  326. 2060  DATA   "AN IMPRESSIVE BUILDING"
  327. 2065  DATA   "HIS CUP IS EMPTY"
  328. 2070  DATA   "LOOK FOR THE RAINBOW"
  329. 2075  DATA   "THE DOG HAS FLEAS"
  330. 2080  DATA   "I CAN READ QUICKLY"
  331. 2085  DATA   "JOHN READS MAGAZINES"
  332. 2090  DATA  "THE PAGE IS BLURRED"
  333. 2095  DATA  "JANE COOKS DINNER"
  334. 2100  DATA   "HE'S TIRED AFTER WORK"
  335. 2105  DATA  "THE ASHTRAY IS FULL"
  336. 2110  DATA  "LOOK AT THE MOUSE"
  337. 2115  DATA  "ANIMALS IN THE ZOO"
  338. 2120  DATA  "THE PAINT IS DRY"
  339. 2125  DATA  "THE MEAL IS OVER"
  340. 2130  DATA  "SOFT AS A FEATHER"
  341. 2135  DATA  "THE LAMPSHADE IS BENT"
  342. 2140  DATA  "THE MAIL IS LATE"
  343. 2145  DATA  "COLOR TELEVISION SHOW"
  344. 2150  DATA  "BABY TAKES A NAP"
  345. 2155  DATA  "SATURDAY AT THE PARK"
  346. 2160  DATA  "WRITE HIM A NOTE"
  347. 2165  DATA  "MARY VISITS JANE"
  348. 2170  DATA  "A BOTTLE OF PERFUME"
  349. 2175  DATA  "THE PAINTING IS GOOD"
  350. 2180  DATA  "LET THE CAT OUT"
  351. 2185  DATA  "ANIMALS IN THE WILD"
  352. 2190  DATA  "A MUSEUM EXHIBIT"
  353. 2195  DATA  "MARY VISITS A FRIEND"
  354. 2200  DATA  "LOOK UNDER THE BED"
  355. 2205  DATA  "LIVE LONG AND WELL"
  356. 2210  DATA  "WINE AND CHEESE PARTY"
  357. 2215  DATA  "RIDE IN THE RAIN"
  358. 2220  DATA  "HEAVY TELEPHONE BOOK"
  359. 2225  DATA  "THE PHONE IS RINGING"
  360. 2230  DATA  "SHE SPILLED PERFUME"
  361. 2235  DATA  "A FLOCK OF SHEEP"
  362. 2240  DATA  "TINY SPECKS OF PAINT"
  363. 2245  DATA  "THE ENGLISH TEACHER"
  364. 2250  DATA  "HE MAILS THE LETTERS"
  365. 2255  DATA  "JANE FEEDS THE CAT"
  366. 2260  DATA  "THE LATEST FASHION"
  367. 2265  DATA  "JOHN AND JANE TRAVEL"
  368. 2270  DATA  "BILL WEARS GLASSES"
  369. 2275  DATA  "JANE TYPES A LETTER"
  370. 2280  DATA  "THE HOLIDAY SEASON"
  371. 2285  DATA  "AN INSECT BITE"
  372. 2290  DATA  "ICE CREAM IS COLD"
  373. 2295  DATA  "UNDER THE ROOFTOPS"
  374. 2300  DATA  "A FLOCK OF PIGEONS"
  375. 2305  DATA  "A BALANCED CHECKBOOK"
  376. 2310  DATA  "FAMOUS ARTISTS GROUP"
  377. 2315  DATA  "A HEAVY WINTER COAT"
  378. 2320  DATA  "HORSES FOR SALE"
  379. 2325  DATA  "WASH THE DISHES"
  380. 2330  DATA  "WALK IN THE WOODS"
  381. 2335  DATA  "THE LION PACES"
  382. 2340  DATA  "THE FIRE CRACKLES"
  383. 2345  DATA  "THE LATEST STYLE"
  384. 2350  DATA  "EMPTY PACKING BOXES"
  385. 2355  DATA  "RAINBOW COLORS"
  386. 2360  DATA  "A SHOTGUN WEDDING"
  387. 2365  DATA  "FOUR YARDS LONG"
  388. 2370  DATA  "JIM CARRIES ROCKS"
  389. 2375  DATA  "LEARNING TO SWIM"
  390. 2380  DATA  "THE NIGHT IS DARK"
  391. 2385  DATA  "JANE RIDES TO WORK"
  392. 2390  DATA  "TOO MANY CHAIRS"
  393. 2395  DATA  "HORSES TO RIDE"
  394. 2400  DATA  "TIED UP WITH STRING"
  395. 2405  DATA  "UP THE STAIRCASE"
  396. 2410  DATA  "SMALL WOODEN BOX"
  397. 2415  DATA  "BILL TAKES LESSONS"
  398. 2420  DATA  "CHILDREN IN SCHOOL"
  399. 2425  DATA  "JIM LEARNS DANCING"
  400. 2430  DATA  "WELL-DRESSED LADY"
  401. 2435  DATA  "COURTROOM BATTLE"
  402. 2440  DATA  "TOO MANY CHILDREN"
  403. 2445  DATA  "RIBBONS WITH LACE"
  404. 2450  DATA  "FENCE BY THE ROAD"
  405. 2455  DATA  "LETTERS TO WRITE"
  406. 2460  DATA  "THE DOOR IS OPEN"
  407. 2465  DATA  "MARY EARNS MONEY"
  408. 2470  DATA  "SINGING ALONG"
  409. 2475  DATA  "TEACH LITTLE KIDS"
  410. 2480  DATA  "THE BRIDGE IS OUT"
  411. 2485  DATA  "SIGNS OF SPRING"
  412. 2490  DATA  "THE LIGHT IS BRIGHT"
  413. 2495  DATA  "HOLIDAY MEALS"
  414. 2500  DATA  "MAGAZINES TO READ"
  415. 2505  DATA  "SHE HAD 5 KITTENS"
  416. 2510  DATA  "THE FRAME IS CRACKED"
  417. 2515  DATA  "NATIVES SELL CRAFTS"
  418. 2520  DATA  "THE EDGE OF SPACE"
  419. 2525  DATA  "FILLED THE SKY"
  420. 2530  DATA  "A VERY OLD STORY"
  421. 2535  DATA  "FLEETS OF WAR SHIPS"
  422. 2540  DATA  "A VERY OLD MANSION"
  423. 2545  DATA  "A DOG'S RED COLLAR"
  424. 2550  DATA  "CAN YOU SEE THEM?"
  425. 2555  DATA  "THREE SHADES OF RED"
  426. 2560  DATA  "SHE HAD TWO DOGS"
  427. 2565  DATA  "JOHN TAKES MARY OUT"
  428. 2570  DATA  "A FURNITURE SALE"
  429. 2575  DATA  "SHE LOST HER GLOVES"
  430. 2580  DATA  "THE CLOCK STRIKES 5"
  431. 2585  DATA  "DO MICE LIKE CHEESE?"
  432. 2590  DATA  "SHE WAS DAY-DREAMING"
  433. 2595  DATA  "THE CLOCK STRIKES 2"
  434. 2600  DATA  "TRIMMED WITH SILVER"
  435. 3000  REM 
  436. 3001  REM  ADVANCED
  437. 3002  REM 
  438. 3005  DATA  "DID YOU ENJOY SCHOOL TODAY?"
  439. 3010  DATA  "I HAD A MAGNIFICENT TIME"
  440. 3015  DATA  "REMEMBER TO BUY SOME MILK"
  441. 3020  DATA  "LET'S GO OUT FOR A BEER"
  442. 3025  DATA  "IT REALLY WAS A GREAT SHOW"
  443. 3030  DATA  "I CAN'T FIND MY BLACK SOCKS"
  444. 3035  DATA  "WHY DID GEORGE KILL HIS FATHER?"
  445. 3040  DATA  "I DON'T UNDERSTAND WHAT HE SAID"
  446. 3045  DATA  "IT WAS A FULL MOON LAST NIGHT"
  447. 3050  DATA  "WHAT ARE WE HAVING FOR LUNCH?"
  448. 3055  DATA  "THE ONLY SATISFACTORY ANSWER"
  449. 3060  DATA  "LEARNING DEMANDS PRACTICE AND CONCERN"
  450. 3065  DATA  "SO SURROUNDED BY FALSE CONCEPTIONS"
  451. 3070  DATA  "SELF-LOVE AND THE LOVE OF GOD"
  452. 3075  DATA  "A REASON TO ABSTAIN FROM TRYING"
  453. 3080  DATA  "MY PLANE LEAVES ANY MINUTE"
  454. 3085  DATA  "MY TRAIN IS OVER AN HOUR LATE"
  455. 3090  DATA  "WHY DID THE MAILMAN COME LATE?"
  456. 3095  DATA  "IT'S TOO LATE TO GO NOW"
  457. 3100  DATA  "WHY NOT STAY OVER TONIGHT?"
  458. 3105  DATA  "WHERE DID YOU PUT THE BOOK?"
  459. 3110  DATA  "THAT STORY WAS VERY AMUSING"
  460. 3115  DATA  "THIS IS A SET OF VALUABLE CRYSTAL"
  461. 3120  DATA  "HE MAKES JEWELRY OF CORAL"
  462. 3125  DATA  "ALL THE WALLS WERE PAINTED"
  463. 3130  DATA  "SHE CROCHETS AFGHANS ALL DAY"
  464. 3135  DATA  "HAS THE SHIPMENT OF PAPER COME?"
  465. 3140  DATA  "I THINK THE INVOICE IS WRONG"
  466. 3145  DATA  "DOES YOUR TV SET STILL WORK?"
  467. 3150  DATA  "HAVE YOU LEARNED SPANISH YET?"
  468. 3155  DATA  "THERE'S A HAUNTED HOUSE THERE"
  469. 3160  DATA  "HAS YOUR LETTER BEEN RECEIVED?"
  470. 3165  DATA  "THE LITTLE GIRL WAS PRETTY"
  471. 3170  DATA  "A NIGHT AT THE THEATRE"
  472. 3175  DATA  "HE DOESN'T LIKE TO FLY"
  473. 3180  DATA  "THEY HAVE TOO MANY PETS"
  474. 3185  DATA  "WHY DON'T YOU WAIT HERE?"
  475. 3190  DATA  "LONG DISTANCE PHONE CALLS"
  476. 3195  DATA  "HOW MANY OF THESE DO YOU HAVE?"
  477. 3200  DATA  "ISN'T THIS SEASONING TOO HOT?"
  478. 3205  DATA  "MY FAVORITE SHOWS ON TV"
  479. 3210  DATA  "WHEN DO YOU THINK WE'LL GO?"
  480. 3215  DATA  "THE PLAY WAS WELL WRITTEN"
  481. 3220  DATA  "HOW DO YOU GET THIS OPEN?"
  482. 3225  DATA  "WHICH ARE THE BEST BUYS?"
  483. 3230  DATA  "WHAT WOULD YOU LIKE IN YOUR SOUP?"
  484. 3235  DATA  "I THOUGHT OUR GUESTS WERE FUN"
  485. 3240  DATA  "I'M GOING SHOPPING LATER"
  486. 3245  DATA  "LOOK IT UP IN THE DICTIONERY"
  487. 3250  DATA  "PIGS OFTEN MAKE GOOD PETS"
  488. 3255  DATA  "LET'S GO TO THE SHOW TONIGHT"
  489. 3260  DATA  "THE LIBRARY HAS MANY NEW BOOKS"
  490. 3265  DATA  "THE CLOSET IS TOO FULL"
  491. 3270  DATA  "PACK EXTRA CLOTHES FOR THE TRIP"
  492. 3275  DATA  "JOHN GRADUATES THIS SPRING"
  493. 3280  DATA  "FIRECRACKERS ARE FUN TO WATCH"
  494. 3285  DATA  "DO YOU THINK THIS IS CORRECT?"
  495. 3290  DATA  "HOW MANY MORE MUST WE DO?"
  496. 3295  DATA  "WE WILL SEE THE BEST OF THEM"
  497. 3300  DATA  "THE HAT WAS TRIMMED WITH FEATHERS"
  498. 3305  DATA  "I'LL MAKE SANDWICHES FOR LUNCH"
  499. 3310  DATA  "I THINK THAT IS GOOD ENOUGH"
  500. 3315  DATA  "THE NEIGHBORS ARE VERY NICE"
  501. 3320  DATA  "THIS NOVEL IS VERY GOOD"
  502. 3325  DATA  "HE HAS TWO DOGS AND A CAT"
  503. 3330  DATA  "YOUR DINNER WAS DELICIOUS"
  504. 3335  DATA  "PLEASE COME AGAIN SOON"
  505. 3340  DATA  "PLEASE TRIM THE FAT FROM THE MEAT"
  506. 3345  DATA  "HER HAT LOOKED OLD FASHIONED"
  507. 3350  DATA  "SOMEDAY WE MAY BE ABLE TO GO"
  508. 3355  DATA  "HIS VACATION WAS CUT SHORT"
  509. 3360  DATA  "HE'S BEEN A TEACHER FOR YEARS"
  510. 3365  DATA  "THIS TAPE SEEMS DEFECTIVE"
  511. 3370  DATA  "WHAT GAME WOULD YOU LIKE TO PLAY?"
  512. 3375  DATA  "SHE'S A GOOD CARD PLAYER"
  513. 3380  DATA  "THE QUEEN'S GOWN WAS GREEN"
  514. 3385  DATA  "WHAT GAME WOULD YOU LIKE TO TRY?"
  515. 3390  DATA  "WE HAVE 2 CATS AND 5 FISH"
  516. 3395  DATA  "THIS SET OF BOOKS IS FOR SALE"
  517. 3400  DATA  "LET'S ROW ACROSS THE RIVER"
  518. 3405  DATA  "DO YOU THINK IT'S A GOOD IDEA?"
  519. 3410  DATA  "HE HAS TRAVELED AROUND THE WORLD"
  520. 3415  DATA  "I THINK A STORM IS COMING"
  521. 3420  DATA  "MY TV IS NOT WORKING RIGHT"
  522. 3425  DATA  "THERE IS SNOW ON THE MOUNTAINTOP"
  523. 3430  DATA  "WE HAVE TO GO HOME NOW"
  524. 3435  DATA  "THE WOOD HAS TERMITES IN IT"
  525. 3440  DATA  "THIS DOLL WILL BREAK EASILY"
  526. 3445  DATA  "HE HAS TO WEAR GLASSES NOW"
  527. 3450  DATA  "HE MUST DO HIS HOMEWORK NOW"
  528. 3455  DATA  "THE WATER IS TOO COLD FOR ME"
  529. 3460  DATA  "CAN YOU FIND MY WATCH?"
  530. 3465  DATA  "SHE WAS A POOR HOUSEKEEPER"
  531. 3470  DATA  "LIONS ARE VERY LAZY ANIMALS"
  532. 3475  DATA  "THE LABEL FELL OFF THE CAN"
  533. 3480  DATA  "CAN SHE FIND MY WATCH?"
  534. 3485  DATA  "THEY GOT A BAD SUNBURN TODAY"
  535. 3490  DATA  "THE MUSEUM WAS ROBBED LAST NIGHT"
  536. 3495  DATA  "I DIDN'T GET THE RIGHT CHANGE"
  537. 3500  DATA  "WHICH ISLAND WILL YOU VISIT?"
  538. 3505  DATA  "WHEN WILL IT STOP RAINING?"
  539. 3510  DATA  "SOME BIRDS MIGRATE EACH YEAR"
  540. 3515  DATA  "SHE HAD LOTS OF SHOPPING TO DO"
  541. 3520  DATA  "STARS COME OUT AT NIGHT"
  542. 3525  DATA  "THE WATERS ARE CALM AGAIN"
  543. 3530  DATA  "SHE HAD AN OPERATION RECENTLY"
  544. 3535  DATA  "THE WEDDING WAS POSTPONED"
  545. 3540  DATA  "BLUE IS THE FAVORITE COLOR"
  546. 3545  DATA  "THE WEDDING WAS CALLED OFF"
  547. 3550  DATA  "HOW MUCH FARM LAND IS LEFT?"
  548. 3555  DATA  "POLLUTION CONTROL IS DIFFICULT"
  549. 3560  DATA  "A TORNADO TOUCHED DOWN HERE"
  550. 3565  DATA  "IS ANY FOOD LEFT FOR ME?"
  551. 3570  DATA  "THEY MUST HAVE MORE ROOM"
  552. 3575  DATA  "THE CHILDREN HAVE MANY PETS"
  553. 3580  DATA  "THE PHONE KEEPS RINGING"
  554. 3585  DATA  "ELEPHANTS DO NOT FEAR MICE"
  555. 3590  DATA  "HE HAS 3 NIGHT CLASSES"
  556. 3595  DATA  "THE SAND WAS PURE AND WHITE"
  557. 3600  DATA  "THEIR VACATION WAS A SUCCESS"
  558. 4000  REM 
  559. 4001  REM  EXPERT
  560. 4002  REM 
  561. 4005  DATA  "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"
  562. 4010  DATA  "THE SUBJECT OF EVERY VARIETY OF MISERY"
  563. 4015  DATA  "BOTH ARE EXAGGERATED BY POSTERITY"
  564. 4020  DATA  "THE MOST PRECARIOUS HEARSAYS"
  565. 4025  DATA  "I MEAN AN EXTREMELY REMOTE POSTERITY"
  566. 4030  DATA  "THE STYLE WAS SO PECULIARLY MY OWN"
  567. 4035  DATA  "WHO GROANS BENEATH THE PUNIC CURSE"
  568. 4040  DATA  "AND STRANGLES IN THE STRINGS OF PURSE"
  569. 4045  DATA  "BEFORE SHE MENDS MUST SICKEN WORSE"
  570. 4050  DATA  "HER LIVING MOUTH WILL BREED BLUE FLIES"
  571. 4055  DATA  "AND MAGGOTS CREEP ABOUT HER EYES"
  572. 4060  DATA  "NO MAN SHALL MARK THE DAY SHE DIES"
  573. 4065  DATA  "WHO GROANS BENEATH THE PUNIC DIRT"
  574. 4070  DATA  "AND STRANGLES IN A STRING OF CURSES"
  575. 4075  DATA  "HER LIVING MOUTH SHALL SPEAK NO TRUTH"
  576. 4080  DATA  "AND MAGGOTS CRAWL ABOUT HER EYES"
  577. 4085  DATA  "HIS RIGHTOUSNESS CAUSED HIS DOWNFALL"
  578. 4090  DATA  "THE RIGHT IDEA AT THE WRONG TIME"
  579. 4095  DATA  "WHY DID THE CHICKEN CROSS THE TRACKS?"
  580. 4100  DATA  "AND MAGGOTS CREEP ABOUT HER EVES"
  581. 4105  DATA  "HER HAIR LAY SILKEN AND SHINY BRIGHT"
  582. 4110  DATA  "DENIED THEIR RIGHTS BY THE GOVERNMENT"
  583. 4115  DATA  "HOW CAN IT LAST UNSPOILED?"
  584. 4120  DATA  "A DIVERSE AND UNIQUE CORNER"
  585. 4125  DATA  "SUCH A VARIED EXPANSE OF SPACE"
  586. 4130  DATA  "THE PACIFIC HAS WITHSTOOD EXPLORERS"
  587. 4135  DATA  "SUCH AN EXPANSE OF TIME AND DISTANCE"
  588. 4140  DATA  "DID PETER PIPER PICK A PECK OF APPLES?"
  589. 4145  DATA  "WHERE IS HE? - I DON'T KNOW"
  590. 4150  DATA  "THIS WAS MADE POSSIBLE BY A GRANT"
  591. 4155  DATA  "THAT HAS BEEN MANKIND'S MAJOR QUESTION"
  592. 4160  DATA  "HE OPENED THE DOOR AND LED THE WAY"
  593. 4165  DATA  "THE STRANGE CASE OF THE MISSING DOVE"
  594. 4170  DATA  "WITHDRAW, MY DEAR, WHILE YOU CAN"
  595. 4175  DATA  "GET UP, I TELL YOU, GIRL, GET UP!"
  596. 4180  DATA  "RISE IN YOUR GOWN OF SHINING BLACK"
  597. 4185  DATA  "AND IT ALSO BAGGED BEHIND"
  598. 4190  DATA  "HOW FAST HE GOES - HOW MANY WHEELS"
  599. 4195  DATA  "HARK TO THE WHIMPER OF THE SEAGULL"
  600. 4200  DATA  "OR ELSE THE OTHER WAY AROUND"
  601. 4205  DATA  "I HOPE THAT IN MY ELDERING AGE"
  602. 4210  DATA  "IN A HOTEL DINING ROOM IN ALABAMA"
  603. 4215  DATA  "I AM ABOUT TO VOLUNTEER A DEFINITION"
  604. 4220  DATA  "SWANS HAVE CYGNETS, SEALS HAVE PUPPIES"
  605. 4225  DATA  "BUT GUPPIES JUST HAVE LITTLE GUPPIES"
  606. 4230  DATA  "A MAN WHO CAN'T SLEEP WITH THE WINDOW"
  607. 4235  DATA  "AND IF YOU WANT TO NAME YOUR OWN RATION"
  608. 4240  DATA  "THEY SCATTER ADJECTIVES HITHER AND YON"
  609. 4245  DATA  "PRAISE THE SPELLS AND BLESS THE CHARMS"
  610. 4250  DATA  "APRIL SOFT IN FLOWERED LANGUOR"
  611. 4255  DATA  "AND OFTEN TRAMPLED ON HIS OWN SHADDER"
  612. 4260  DATA  "GO SOAK YOUR HEAD IN BOILING ADS"
  613. 4265  DATA  "I ROAM WHERE MAGIC CASEMENTS OPE"
  614. 4270  DATA  "AND I HOPE TO DO SO NEVER AGAIN"
  615. 4275  DATA  "BEING A FATHER IS QUITE A BOTHER"
  616. 4280  DATA  "AND THEN ONE MORN A CHILD IS BORN"
  617. 4285  DATA  "THE FRIENDLY EMBERS WARMER GLEAM"
  618. 4290  DATA  "MUTTERING SPELLS LIKE AN ANGRY DRUID"
  619. 4295  DATA  "AND WHEN THEIR ORGY AT LAST ABATES"
  620. 4300  DATA  "THE BLOWFISH NIBBLE AT YOUR TOES"
  621. 4305  DATA  "ALL LADIES THINK THEY WEIGH TOO MUCH"
  622. 4310  DATA  "WHEN HIS FACE IS APOPLECTIC"
  623. 4315  DATA  "BUT JOY IN HEAPING MEASURE COMES"
  624. 4320  DATA  "WHOSE SOUPS ARE SOUNDLY PEPPERED"
  625. 4325  DATA  "A SHIVER GOES RIPPLING UP MY BACK"
  626. 4330  DATA  "THE DRY OUTER COVERING OF FRUITS"
  627. 4335  DATA  "A COLLECTION OF WATERY FLUID IN A HOLE"
  628. 4340  DATA  "THE SLAIN NINE-HEADED SERPENT"
  629. 4345  DATA  "ANY ONE OF A NUMBER OF THINGS"
  630. 4350  DATA  "HE RECENTLY PUBLICLY APOLOGIZED FOR IT"
  631. 4355  DATA  "A QUARTER-HORSE IS THREE-QUARTERS MULE"
  632. 4360  DATA  "IT IS HARROWING, BROWBEATING AND CRUEL"
  633. 4365  DATA  "IS ANOTHER MAN'S REMINISCENCES"
  634. 4370  DATA  "DID YOU READ THIS RIGHTLY OR WRONGLY?"
  635. 4375  DATA  "ORIGINS OF AMERICAN PLACE NAMES"
  636. 4380  DATA  "EXPERIENCE IS A FRUIT TREE FRUITLESS"
  637. 4385  DATA  "EXPERIENCE IS A SHOE-TREE BOOTLESS"
  638. 4390  DATA  "EXPERIENCE IS A FUTILE TEACHER"
  639. 4395  DATA  "EXPERIENCE IS A PROSY PREACHER"
  640. 4400  DATA  "DEPEND, MY BOY, ON EXPERIENCE"
  641. 4405  DATA  "MEN STAND IN LINE TO GAMBLE AGAIN"
  642. 4410  DATA  "FOR STERILE WEARIENCE AND DREARIENCE"
  643. 4415  DATA  "THE BURNT CHILD, URGED BY RANKLING IRE"
  644. 4420  DATA  "HARDLY WAIT TO GET BACK AT THE FIRE"
  645. 4425  DATA  "WHO SAYS THAT HE CAN DRINK OR NOT?"
  646. 4430  DATA  "THE NATION BANKRUPT BY A WAR"
  647. 4435  DATA  "THINKS TO RECOUP WITH JUST ONE MORE"
  648. 4440  DATA  "THE WRETCHED GOLFER, DIVOT-BOUND"
  649. 4445  DATA  "PERSISTS IN DREAMS OF A PERFECT ROUND"
  650. 4450  DATA  "LIFE'S LITTLE SUCKERS CHIRP LIKE BIRDS"
  651. 4455  DATA  "WHILE SPENDING THEIR ALL ON LOSING"
  652. 4460  DATA  "PEOPLE WHOSE INSTINCTS INSTRUCT THEM"
  653. 4465  DATA  "WILL NEVER LEARN BY SUFFERING ONCE"
  654. 4470  DATA  "BUT EVER AND EVER PLAY THE DUNCE"
  655. 4475  DATA  "EXPERIENCE! WISE MEN DO NOT NEED IT!"
  656. 4480  DATA  "EXPERIENCE! IDIOTS DO NOT HEED IT!"
  657. 4485  DATA  "I'D TRADE MY LAKE OF EXPERIENCE"
  658. 4490  DATA  "FOR JUST ONE DROP OF COMMON SENSE"
  659. 4495  DATA  "SHE STRUNG HIM UP ON THE NEAREST TREE"
  660. 4500  DATA  "THE COATS DISPLAY NO WASPISH WAIST"
  661. 4505  DATA  "TO SURVIVE A DAY OF MEDIUM LENGTH"
  662. 4510  DATA  "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"
  663. 4515  DATA  "THIS IS THE DAY THAT WON'T GET DARK"
  664. 4520  DATA  "NEVER AGAIN SHALL WE GET TO BED"
  665. 4525  DATA  "DUSK IS AN EXILE, NIGHT HAS FLED"
  666. 4530  DATA  "MIDNIGHT LIES WITH THE BURIED CZARS"
  667. 4535  DATA  "YOU BUY THEM THUS BECAUSE YOU THINK"
  668. 4540  DATA  "THEIR TOES AND YOURS ARE FAR APART"
  669. 4545  DATA  "YOUR WOOLLEN SOCKS CANNOT BE WORN"
  670. 4550  DATA  "AND WHILE HIS SOCKS ARE HUNG TO DRY"
  671. 4555  DATA  "AND YET THE IDIOTS KEEP ON LIVING"
  672. 4560  DATA  "IN WOE AND PAIN THROUGH LIFE THEY GO"
  673. 4565  DATA  "TO CONFIRM THROUGH SACRIFICE INTENSE"
  674. 4570  DATA  "MY ATTENTION HAS RECENTLY BEEN FOCUSED"
  675. 4575  DATA  "GIRL LOCUSTS DON'T MAKE ANY NOISE"
  676. 4580  DATA  "WHOSE FLAVOR REEKS OF RANCID BUTTER"
  677. 4585  DATA  "FIVE STORIES TALL THIS MANTRAP STANDS"
  678. 4590  DATA  "THEY PASS UNWARY THROUGH ITS PORTALS"
  679. 4595  DATA  "YOU SEARCH IN VAIN FOR A BEDSIDE LAMP"
  680. 4600  DATA  "A CENTURY LATER THE NIGHT IS PAST"
  681. 5000  REM  MORE OR DIFFERENT
  682. 5001  REM  DATA STATEMENTS
  683. 5002  REM  MAY EASILY BE
  684. 5003  REM  ENTERED
  685. 5004  REM   
  686. 5005  REM  THE DIMENSIONS
  687. 5006  REM  IN LINES 135-139
  688. 5007  REM  MUST BE CHANGED
  689. 5008  REM  TO REFLECT ANY
  690. 5009  REM  ADDITIONS OR 
  691. 5010  REM  DELETIONS FROM
  692. 5011  REM  THE CATAGORY TOTALS
  693. 62000  REM 
  694. 62001  REM  APPLE T.A.R.T.
  695. 62002  REM  SOFTWARE BANK
  696. 62003  REM  
  697. 62004  REM  ENTERED BY
  698. 62005  REM  WILLIAM DAVIS
  699. 62006  REM       AND
  700. 62007  REM  ELUISE MARVIN
  701. 62008  REM 
  702. 62009  REM  AUGUST 19,1979